home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / putz / putzlog.i < prev    next >
Text File  |  1997-10-26  |  4KB  |  135 lines
  1. IMPLEMENTATION MODULE PutzLog;
  2.  
  3. (*==============================================================*
  4.  * Modul:               CAT Import-Logfile                      *
  5.  * Autor:               Johannes G”ttker-Schnetmann             *
  6.  * erstellt am:         09.06.1991                              *
  7.  * letzte Žnderung am:  09.06.91                                *
  8.  * Version:             1.2                                     *
  9.  * Interne Version:     V#0001                                  *
  10.  *==============================================================*
  11.  
  12.  *----------------------------------------------------------------------------
  13.  * Datum    Vers. Autor  Žnderung (Arbeitsbericht)                            
  14.  *----------------------------------------------------------------------------
  15.  * 09.06.91  1.2   JGS   erste Version
  16.  *
  17.  * 13.08.91  1.216 DS    Buffergr”žen bei OpenTexfile ge„ndert, da bei 0 32 kB
  18.  *                       alloziert werden.                                                                            
  19.  *                                                                            
  20.  *                                                                            
  21.  *----------------------------------------------------------------------------
  22.  *)
  23.  
  24. IMPORT mtTextfiles;
  25. IMPORT MagicStrings;
  26. IMPORT MagicDOS;
  27. FROM TimeConvert IMPORT DateToText, TimeToText;
  28.  
  29. FROM Clock      IMPORT CurrentTime, CurrentDate;
  30.  
  31.  
  32. CONST logName = 'CATPUTZ.LOG';
  33.  
  34. VAR log : mtTextfiles.TEXTFILE;
  35.     open: BOOLEAN;
  36.  
  37. (*$W-*)
  38. PROCEDURE WriteString(REF str : ARRAY OF CHAR);
  39. BEGIN
  40.   IF open THEN
  41.     mtTextfiles.WriteLine(log, str);
  42.   END;
  43. END WriteString;
  44. (*$W=*)
  45.  
  46.  
  47. PROCEDURE WriteCard(c : LONGCARD);
  48. BEGIN
  49.   IF open THEN
  50.     mtTextfiles.WriteLongCard(log, c, 0);
  51.   END;
  52. END WriteCard;
  53.  
  54. PROCEDURE Write(c : CHAR);
  55. BEGIN
  56.   IF open THEN
  57.     mtTextfiles.WriteChar(log, c);
  58.   END;
  59. END Write;
  60.  
  61. PROCEDURE WriteLn();
  62. BEGIN
  63.   IF open THEN
  64.     mtTextfiles.WriteLn(log);
  65.   END;
  66. END WriteLn;
  67.  
  68. PROCEDURE WriteLine(REF str : ARRAY OF CHAR);
  69. BEGIN
  70.   WriteString(str); WriteLn();
  71. END WriteLine;
  72.  
  73. PROCEDURE putDate();
  74. VAR z1,z2,z3,z4 : CARDINAL;
  75.     tmpStr      : ARRAY [0..40] OF CHAR;
  76. BEGIN
  77.   DateToText (CurrentDate(), 'DD.MM.YYYY', tmpStr);
  78.   WriteString (tmpStr);
  79.   WriteString (', ');
  80.   TimeToText (CurrentTime(), 'HH:MM.SS Uhr', tmpStr);
  81.   WriteString (tmpStr);
  82.   (*
  83.   z1 := MagicDOS.Tgetdate();
  84.   CardToDate(z1,  z2,z3,z4); (* Jahr, Monat, Tag        *)
  85.   WriteCard(z4);
  86.   Write('.');
  87.   WriteCard(z3);
  88.   Write('.');
  89.   WriteCard(z2);
  90.   Write(' ');
  91.   z1 := MagicDOS.Tgettime();
  92.   CardToTime(z1,  z2,z3,z4); (* Stunde, Minute, Sekunde *)
  93.   WriteCard(z2);
  94.   Write(':');
  95.   WriteCard(z3);
  96.   Write(':');
  97.   WriteCard(z4);
  98.   *)
  99. END putDate;
  100.  
  101. PROCEDURE putTime();
  102. VAR z1,z2,z3,z4 : CARDINAL;
  103.     tmpStr      : ARRAY [0..40] OF CHAR;
  104. BEGIN
  105.   TimeToText (CurrentTime(), 'HH:MM.SS ', tmpStr);
  106.   WriteString (tmpStr);
  107. END putTime;
  108.  
  109. PROCEDURE OpenLog(REF path : ARRAY OF CHAR):BOOLEAN;
  110. VAR scrap : ARRAY[0..255] OF CHAR;
  111. BEGIN
  112.   MagicStrings.Assign(path, scrap);
  113.   MagicStrings.Append(logName, scrap);
  114.   (* Buffergr”žen ver„ndert *)
  115.   open := mtTextfiles.OpenTextfile(scrap, mtTextfiles.WRITE, 8192, log) OR
  116.           mtTextfiles.OpenTextfile(scrap, mtTextfiles.WRITE,  512, log);
  117.   putDate();
  118.   WriteLine(' Log-Datei ge”ffnet');
  119.   WriteLine('--------------------------------------------------');
  120.   RETURN open
  121. END OpenLog;
  122.  
  123. PROCEDURE CloseLog();
  124. BEGIN
  125.   IF open THEN
  126.     WriteString('Log-Datei geschlossen am ');
  127.     putDate();
  128.     WriteLn();
  129.     mtTextfiles.CloseTextfile(log);
  130.   END;
  131. END CloseLog;
  132.  
  133. BEGIN
  134.   open := FALSE
  135. END PutzLog.